SUBROUTINE Splash ()
WRITE (*,*)
!WRITE (*,'(a)') ' ______ ______ _____ _______ '
!WRITE (*,'(a)') ' | ____| ____|/ ____|__ __|'
!WRITE (*,'(a)') ' | |__ | |__ | (___ | | '
!WRITE (*,'(a)') ' | __| | __| \___ \ | | '
!WRITE (*,'(a)') ' | | | |____ ____) | | | '
!WRITE (*,'(a)') ' |_| |______|_____/ |_| '
!WRITE (*,'(a)')
!WRITE (*,'(a)') '-o--o o--o o-o o--O-o '
!WRITE (*,'(a)') ' | | | | '
!WRITE (*,'(a)') ' O-o O-o o-o | '
!WRITE (*,'(a)') ' | | | | '
!WRITE (*,'(a)') ' o o--o o--o o '
!WRITE (*,'(a)')
WRITE (*,'(a)') ' ________ _______ ________ _________ '
WRITE (*,'(a)') '|\ _____\|\ ___ \ |\ ____\ |\___ ___\ '
WRITE (*,'(a)') '\ \ \__/ \ \ __/| \ \ \___|_ \|___ \ \_| '
WRITE (*,'(a)') ' \ \ __\ \ \ \_|/__ \ \_____ \ \ \ \ '
WRITE (*,'(a)') ' \ \ \_| \ \ \_|\ \ \|____|\ \ \ \ \ '
WRITE (*,'(a)') ' \ \__\ \ \_______\ ____\_\ \ \ \__\ '
WRITE (*,'(a)') ' \|__| \|_______| |\_________\ \|__| '
WRITE (*,'(a)') ' \|_________| '
WRITE (*,'(a)') ' '
! (*,'(a)') ' E N E R G Y - W A T E R - B A L A N C E '
WRITE (*,'(a)') ' S P A T I A L L Y - D I S T R I B U T E D '
WRITE (*,'(a)') ' H Y D R O L O G I C A L - M O D E L '
!WRITE (*,'(a)') ' Flood Event Spatially distributed rainfall-runoff Transformation model'
WRITE (*,'(a)')
RETURN
END SUBROUTINE Splash
